home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / DELAREA.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-21  |  485b  |  17 lines
  1. PROCEDURE DELAREA;
  2.    VAR
  3.      K:INTEGER;
  4.    BEGIN
  5.           FOR K := 1 TO OBJPTR-1 DO
  6.             WITH DRAWARY[K] DO
  7.              BEGIN
  8.                IF OBJSEL = 1 THEN OBJTYP := 0;
  9.              END; (*WITH*)
  10.           MNUM := 1;                   (* OBJECTS ARE GONE *)
  11.           M1 := 2;
  12.           MOUSE(M1,M2,M3,M4);          (* HIDE MOUSE *)
  13.           REDRAW;
  14.           M1 := 1;                     (* SHOW MOUSE *)
  15.           MOUSE(M1,M2,M3,M4);
  16.   END; (*PROC*)
  17.